<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<% Response.Expires=0 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
dim Node, N
Node=request("Node")
if isEmpty(Node) then Node="_P"
N=request("N")
if isEmpty(N) then N=32
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

</head>

<body bgcolor="#FBF3BB" onload="Cycle();" >
<%
	Dim cnn
	Dim i, Color1,Color2, color, size, TT
	Dim connStr
	Dim objRec
	Set cnn=Server.CreateObject("ADODB.Connection")
	Set objRec=Server.CreateObject("ADODB.Recordset")
	connStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=Test;Password=Test;Initial Catalog=SMS"&Node&";Data Source=(local)"
	cnn.open connStr

	objRec.open "select top " &N&" * from SMS.dbo.Notifications order by id desc", cnn,1,3,1
	
	%>
	<table border="1" width="98%" align="center" cellpadding=4>
	<tr align="center">
<th  align="center">id</th>
<th><font size=-1>DateTime</font></th>
<th><font size=-1>Spid</font></th>
<th><font size=-1>Process</font></th>
<th><font size=-1>Code</font></th>
<th><font size=-1>Comment</font></th>
</tr>
	<%
	Do while (Not objRec.eof) ''''AND i<=12
    %>
	<tr align="center">
<td><font size=-1><%= objRec("ID") %></font></td>
<td><font size=-1><%=objRec("DateTime")   %></font></td>
<td><font size=-1><%= objRec("Spid")  %></font></td>
<td align=left><font size=-1 ><%= objRec("Process") %></font></td>
<td align=left><font size=-1 ><%= objRec("Code") %>&nbsp;</font></td>
<td align=left><font size=-1 ><%= objRec("Comment") %>&nbsp;</font></td>
</tr>
<%
	objRec.MoveNext
	Loop 
	%>
	</table>
		<%
	cnn.Close
	set cnn=nothing
	set objRec=nothing
%>
</font>
</body>
</html>
